home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / emula / arosdv19.lha / AROS / dos / cli.c < prev    next >
C/C++ Source or Header  |  1996-10-24  |  2KB  |  69 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: cli.c,v 1.4 1996/10/24 15:50:24 aros Exp $
  4.     $Log: cli.c,v $
  5.     Revision 1.4  1996/10/24 15:50:24  aros
  6.     Use the official AROS macros over the __AROS versions.
  7.  
  8.     Revision 1.3  1996/08/13 13:52:45  digulla
  9.     Replaced <dos/dosextens.h> by "dos_intern.h" or added "dos_intern.h"
  10.     Replaced AROS_LA by AROS_LHA
  11.  
  12.     Revision 1.2  1996/08/01 17:40:48  digulla
  13.     Added standard header for all files
  14.  
  15.     Desc:
  16.     Lang: english
  17. */
  18. #include <clib/exec_protos.h>
  19. #include "dos_intern.h"
  20.  
  21. /*****************************************************************************
  22.  
  23.     NAME */
  24.     #include <clib/dos_protos.h>
  25.  
  26.     AROS_LH0(struct CommandLineInterface *, Cli,
  27.  
  28. /*  SYNOPSIS */
  29.  
  30. /*  LOCATION */
  31.     struct DosLibrary *, DOSBase, 82, Dos)
  32.  
  33. /*  FUNCTION
  34.     Returns a pointer to the CLI structure of the current process.
  35.  
  36.     INPUTS
  37.  
  38.     RESULT
  39.     Pointer to CLI structure.
  40.  
  41.     NOTES
  42.     Do not use this function to test if the process was started from
  43.     the shell. Check pr_CLI instead.
  44.  
  45.     EXAMPLE
  46.  
  47.     BUGS
  48.  
  49.     SEE ALSO
  50.  
  51.     INTERNALS
  52.  
  53.     HISTORY
  54.     29-10-95    digulla automatically created from
  55.                 dos_lib.fd and clib/dos_protos.h
  56.  
  57. *****************************************************************************/
  58. {
  59.     AROS_LIBFUNC_INIT
  60.     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  61.  
  62.     /* Get pointer to process structure */
  63.     struct Process *me=(struct Process *)FindTask(NULL);
  64.  
  65.     /* Nothing spectacular */
  66.     return (struct CommandLineInterface *)BADDR(me->pr_CLI);
  67.     AROS_LIBFUNC_EXIT
  68. } /* Cli */
  69.